* Fix speed 2 bootstrap

	(comp-call-optim-func): Do nothing if the function name is
	unknown.

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 94ffc2d17789a01e6108ae4d66e166d0a5de08b3..d546218940bec7bdbcc14a3afb6cf33cac6ead01 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1994,6 +1994,7 @@ Backward propagate array placement properties."
   (cl-loop
    with self = (comp-func-name comp-func)
    for b being each hash-value of (comp-func-blocks comp-func)
+   when self ;; FIXME add proper anonymous lambda support.
    do (cl-loop
        for insn-cell on (comp-block-insns b)
        for insn = (car insn-cell)